home *** CD-ROM | disk | FTP | other *** search
/ Mail Madness! 55 / Mail_Madness_55_2007-03-21_Raiders_of_the_Lost_Empire_Side_B.d64 / 8-bit terrorists (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  31KB  |  459 lines
  1. 4 sys33088
  2. 5 forb=1to900:nextb
  3. 10 poke53281,6:poke53280,6:print"":poke53281,14:poke43280,14
  4. 20 ford=1to20:print"":nextd
  5. 25 print"           [213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]":
  6. 30 print"           [221]8-bit terrorists[221]"
  7. 35 print"           [202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
  8. 40 fore=1to350:nexte
  9. 100 fora=1to25:print" ":gosub3000:nexta
  10. 110 poke53281,15:poke53280,15:gosub5000
  11. 120 poke53281,12:poke53280,12:gosub5000
  12. 130 poke53281,11:poke53280,11:gosub5000
  13. 140 poke53281,00:poke53280,00:gosub5000
  14. 150 print"[147]";
  15. 200 print" d i g i t a l  s o u n d s s y s t e m"
  16. 210 print"                presents"
  17. 230 print"[155] [176][192][192][174][176][192][192][178][192][192][192][192][174]"
  18. 240 print"[155] [221][176][174][221][221][176][174][171][178][174][176][192][189]"
  19. 250 print"[155][176][189][173][189][173][179][173][189][173][219][179][221]##[160][160]### ###"
  20. 260 print"[155][221][176][192][192][174][221][176][192][174][221][221][221]# # #   #"
  21. 270 print"[155][221][221]  [221][221][221] [221][221][221][221]# # ### ###[155][176][192][192][192][174]"
  22. 275 print"[155][221][173][192][192][189][221][173][192][189][221][221][221]# #   #   #[155][221][176][192][192][189]"
  23. 280 print"[152][173][192][192][192][192][177][178][192][192][177][177][179]### ### ###[152][221][221]   "
  24. 290 print"[152]      [173][192][174][176][192][177][178][192][192][174] [176][192][192][174]  [221][221]"
  25. 300 print"[152]        [221][221][176][192][179][176][192][177][174][221][176][178][177][192][192][179][173][192][192][174]"
  26. 400 print"[152]        [221][221][173][192][179][221][176][192][177][179][171][179][176][192][192][177][192][192][174][221]"
  27. 410 print"[151]        [221][221][176][192][179][221][221][176][174][221][221][221][173][192][174][176][192][192][189][221]"
  28. 420 print"[151]        [221][221][173][192][179][221][221][221][221][221][221][171][192][174][221][171][192][192][192][189]"
  29. 430 print"[151]        [173][177][192][192][177][179][221][221][221][171][179][221] [221][221][221]"
  30. 440 print"[151]             [173][179][173][189][221][173][177][192][189][171][189]"
  31. 450 print"[151]              [173][192][192][177][192][192][192][192][189]"
  32. 460 t$="[145][145][145][145][145][145][145][145][145][152]knk/dtc/bld":gosub6000
  33. 470 print""
  34. 475 rem goto 900
  35. 500 print"huggles to...:":gosub5000
  36. 510 t$="extend/":gosub6000
  37. 520 t$="focus/":gosub6000
  38. 530 t$="scs*trc/":gosub6000
  39. 540 t$="silicon ltd./":gosub6000
  40. 550 t$="fairlight/":gosub6000
  41. 560 t$="boobz":gosub6000:gosub5000:t$="[157][157]zedesign/":gosub6000
  42. 570 t$="secure/":gosub6000
  43. 580 t$="trsi/":gosub6000
  44. 590 t$="cosine/":gosub6000
  45. 600 t$="hema/":gosub6000
  46. 610 t$="troep/":gosub6000
  47. 620 t$="triad/":gosub6000
  48. 630 t$="camelot/":gosub6000
  49. 640 t$="crest/":gosub6000
  50. 650 t$="aquanauts/":gosub6000
  51. 660 t$="maniacs of noise/":gosub6000
  52. 670 t$="horizon/":gosub6000
  53. 680 t$="instinct/":gosub6000
  54. 690 t$="vision/":gosub6000
  55. 700 t$="cowsine/":gosub6000
  56. 710 t$="crap'd/":gosub6000
  57. 720 t$="the walker group/":gosub6000
  58. 730 t$="oxyron/":gosub6000
  59. 740 t$="onslaught/":gosub6000
  60. 750 t$="chop suey/":gosub6000
  61. 760 t$="plush/":gosub6000
  62. 765 t$="k2/":gosub6000
  63. 767 t$="and the rest of the active c64 scene...[157][157][157]   [157][157][157]...":gosub6000
  64. 770 forg=1to25
  65. 780 print"[151]fuckings to wdr und nata!"
  66. 790 next g
  67. 795 print"[147]";
  68. 796 forg=1to12:print"[144]hidden message!":nextg
  69. 800 print"          [209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209]";
  70. 810 print"[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][159]";:t$="[209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209]":gosub6040;
  71. 820 print"[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][154]";:t$="[209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209]":gosub6040;
  72. 830 print"[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";:t$="[209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209]":gosub6040;
  73. 840 print"[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][156]";:t$="[209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209]":gosub6040;
  74. 850 print"[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";:t$="[209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209]":gosub6040;
  75. 860 print"[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][150]";:t$="[209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209]":gosub6040;
  76. 870 print"[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][158]";:t$="[209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209]":gosub6040;
  77. 875 print"[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";:t$="[209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209]":gosub6040;
  78. 880 print"[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][155]";:t$="[209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209]":gosub6040;
  79. 881 print"[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][152]";:t$="[209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209]":gosub6040;
  80. 882 print"[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][151]";:t$="[209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209]":gosub6040;
  81. 883 print"[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][144]";:t$="[209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209]":gosub6000
  82. 884 print"  ":print"[145]"
  83. 885 forf=1to15
  84. 890 print"[145]   [155]a[152]n[151]d [152]n[155]o[152]w[151] [152]f[155]o[152]r [151]s[152]o[155]m[152]e[151]t[152]h[155]i[152]n[151]g [152]d[155]i[152]f[151]f[152]e[155]r[152]e[151]n[152]t[155].[152].[151]."
  85. 891 fora=1to100:nexta
  86. 892 print"[145]   [152]a[155]n[152]d [151]n[152]o[155]w[152] [151]f[152]o[155]r [152]s[151]o[152]m[155]e[152]t[151]h[152]i[155]n[152]g [151]d[152]i[155]f[152]f[151]e[152]r[155]e[152]n[151]t[152].[155].[152]."
  87. 893 fora=1to100:nexta
  88. 895 nextf
  89. 896 print"";:forv=1to999:gosub4000:nextv
  90. 900 poke53281,5:poke53280,5
  91. 910 print"[153][147]";
  92. 990 forh=1to3
  93. 1000 print" [209]"
  94. 1010 print"  [209]"
  95. 1020 print"   [209]"
  96. 1030 print"    [209]"
  97. 1040 print"     [209]"
  98. 1050 print"      [209]"
  99. 1060 print"       [209]"
  100. 1070 print"        [209]"
  101. 1080 print"         [209]"
  102. 1090 print"          [209]"
  103. 1100 print"           [209]"
  104. 1110 print"            [209]"
  105. 1120 print"             [209]"
  106. 1130 print"              [209]"
  107. 1140 print"               [209]"
  108. 1150 print"                [209]"
  109. 1160 print"                 [209]"
  110. 1170 print"                  [209]"
  111. 1180 print"                   [209]"
  112. 1190 print"                    [209]"
  113. 1200 print"                     [209]"
  114. 1210 print"                      [209]"
  115. 1220 print"                       [209]"
  116. 1230 print"                        [209]"
  117. 1240 print"                         [209]"
  118. 1250 print"                          [209]"
  119. 1260 print"                           [209]"
  120. 1270 print"                            [209]"
  121. 1280 print"                             [209]"
  122. 1290 print"                              [209]"
  123. 1300 print"                               [209]"
  124. 1310 print"                                [209]"
  125. 1320 print"                                 [209]"
  126. 1330 print"                                  [209]"
  127. 1337 print"                                   [209]"
  128. 1340 print"                                    [209]"
  129. 1350 print"                                     [209]"
  130. 1360 print"                                      [209]"
  131. 1370 print"                                     [209]"
  132. 1380 print"                                    [209]"
  133. 1390 print"                                   [209]"
  134. 1400 print"                                  [209]"
  135. 1410 print"                                 [209]"
  136. 1420 print"                                [209]"
  137. 1430 print"                               [209]"
  138. 1440 print"                              [209]"
  139. 1450 print"                             [209]"
  140. 1460 print"                            [209]"
  141. 1470 print"                           [209]"
  142. 1480 print"                          [209]"
  143. 1490 print"                         [209]"
  144. 1500 print"                        [209]"
  145. 1510 print"                       [209]"
  146. 1520 print"                      [209]"
  147. 1530 print"                     [209]"
  148. 1540 print"                    [209]"
  149. 1550 print"                   [209]"
  150. 1560 print"                  [209]"
  151. 1570 print"                 [209]"
  152. 1580 print"                [209]"
  153. 1590 print"               [209]"
  154. 1600 print"              [209]"
  155. 1610 print"             [209]"
  156. 1620 print"            [209]"
  157. 1630 print"           [209]"
  158. 1640 print"          [209]"
  159. 1650 print"         [209]"
  160. 1660 print"        [209]"
  161. 1670 print"       [209]"
  162. 1680 print"        [209]"
  163. 1690 print"         [209]"
  164. 1700 print"          [209]"
  165. 1710 print"           [209]"
  166. 1720 print"            [209]"
  167. 1730 print"             [209]"
  168. 1740 print"              [209]"
  169. 1750 print"               [209]"
  170. 1760 print"              [209]"
  171. 1770 print"             [209]"
  172. 1780 print"            [209]"
  173. 1790 print"           [209]"
  174. 1800 print"          [209]"
  175. 1810 print"         [209]"
  176. 1820 print"        [209]"
  177. 1830 print"       [209]"
  178. 1840 print"      [209]"
  179. 1850 print"     [209]"
  180. 1860 print"    [209]"
  181. 1870 print"   [209]"
  182. 1880 print"  [209]"
  183. 1890 print" [209]"
  184. 1900 print"  [209]"
  185. 1910 print"   [209]"
  186. 1920 print"    [209]"
  187. 1930 print"     [209]"
  188. 1940 print"      [209]"
  189. 1950 print"       [209]"
  190. 1960 print"        [209]"
  191. 1970 print"         [209]"
  192. 1980 print"          [209]"
  193. 1990 print"           [209]"
  194. 2000 print"            [209]"
  195. 2010 print"             [209]"
  196. 2020 print"              [209]"
  197. 2030 print"               [209]"
  198. 2040 print"                [209]"
  199. 2050 print"                 [209]"
  200. 2060 print"                  [209]"
  201. 2070 print"                   [209]"
  202. 2080 print"                    [209]"
  203. 2090 print"                     [209]"
  204. 2100 print"                    [209]"
  205. 2110 print"                   [209]"
  206. 2120 print"                  [209]"
  207. 2130 print"                 [209]"
  208. 2140 print"                [209]"
  209. 2150 print"               [209]"
  210. 2160 print"              [209]"
  211. 2170 print"             [209]"
  212. 2180 print"            [209]"
  213. 2190 print"           [209]"
  214. 2200 print"            [209]"
  215. 2210 print"             [209]"
  216. 2220 print"              [209]"
  217. 2230 print"               [209]"
  218. 2240 print"                [209]"
  219. 2250 print"                 [209]"
  220. 2260 print"                  [209]"
  221. 2270 print"                   [209]"
  222. 2280 print"                    [209]"
  223. 2290 print"                     [209]"
  224. 2300 print"                      [209]"
  225. 2310 print"                       [209]"
  226. 2320 print"                        [209]"
  227. 2330 print"                         [209]"
  228. 2340 print"                          [209]"
  229. 2350 print"                           [209]"
  230. 2360 print"                            [209]"
  231. 2370 print"                             [209]"
  232. 2380 print"                              [209]"
  233. 2390 print"                               [209]"
  234. 2400 print"                                [209]"
  235. 2410 print"                                 [209]"
  236. 2420 print"                                  [209]"
  237. 2430 print"                                   [209]"
  238. 2440 print"                                    [209]"
  239. 2450 print"                                     [209]"
  240. 2460 print"                                      [209]"
  241. 2470 print"                                     [209]"
  242. 2480 print"                                    [209]"
  243. 2490 print"                                   [209]"
  244. 2500 print"                                  [209]"
  245. 2510 print"                                 [209]"
  246. 2520 print"                                [209]"
  247. 2530 print"                               [209]"
  248. 2540 print"                              [209]"
  249. 2550 print"                             [209]"
  250. 2560 print"                            [209]"
  251. 2570 print"                           [209]"
  252. 2580 print"                          [209]"
  253. 2590 print"                         [209]"
  254. 2600 print"                        [209]"
  255. 2610 print"                       [209]"
  256. 2620 print"                        [209]"
  257. 2630 print"                         [209]"
  258. 2640 print"                          [209]"
  259. 2650 print"                           [209]"
  260. 2660 print"                            [209]"
  261. 2670 print"                           [209]"
  262. 2680 print"                          [209]"
  263. 2690 print"                         [209]"
  264. 2700 print"                        [209]"
  265. 2710 print"                       [209]"
  266. 2720 print"                      [209]"
  267. 2730 print"                     [209]"
  268. 2740 print"                    [209]"
  269. 2750 print"                   [209]"
  270. 2760 print"                  [209]"
  271. 2770 print"                 [209]"
  272. 2780 print"                [209]"
  273. 2790 print"               [209]"
  274. 2800 print"              [209]"
  275. 2810 print"             [209]"
  276. 2820 print"            [209]"
  277. 2830 print"           [209]"
  278. 2840 print"          [209]"
  279. 2850 print"         [209]"
  280. 2860 print"        [209]"
  281. 2870 print"       [209]"
  282. 2880 print"      [209]"
  283. 2890 print"     [209]"
  284. 2900 print"    [209]"
  285. 2910 print"   [209]"
  286. 2920 print"  [209]"
  287. 2930 print" [209]"
  288. 2940 nexth
  289. 2950 goto7000
  290. 3000 forg=1to50:nextg:return
  291. 4000 print" ";:return
  292. 5000 forgs=1to150:nextgs:return
  293. 6000 fori=1tolen(t$)
  294. 6010 print mid$(t$,i,1);
  295. 6020 forz=0to50:nextz
  296. 6030 nexti:return
  297. 6040 fori=1tolen(t$)
  298. 6050 print mid$(t$,i,1);
  299. 6060 forz=0to1:nextz
  300. 6070 nexti:return
  301. 7000 print"dss [211] teh scene.":fora=1to24:print" ":nexta
  302. 7010 poke53281,3:poke53280,3:forx=1to150:nextx
  303. 7020 poke53281,14:poke53280,14:forx=1to150:nextx
  304. 7030 poke53281,6:poke53280,6
  305. 7998 print"[144]        [213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
  306. 7999 print"[144]        [221]               [176][174]            [144][221]"
  307. 8000 print"[144]        [221][176][192][192][192][178][192][192][192][178][192][192][192][178][192][192][189][171][192][192][178][192][192][178][192][192][192][174][176][174][144][221]"
  308. 8010 print"[144]        [221][221]   [221][176][192][192][179][192][192][192][179][176][192][174][171][192][192][219][174][176][179][192][192][192][179][173][189][144][221]"
  309. 8020 print"[144]        [221][221][192][192][192][179][221]  [221][192][192][192][179][173][192][189][221]  [221][221][221][171][192][192][192][221][176][174][144][221]"
  310. 8030 print"[144]        [221][173][192][192][192][177][189]  [173][192][192][192][177][192][192][192][177][192][192][189][173][189][173][192][192][192][189][173][189][144][221]"
  311. 8035 print"[144]        [221][154]       [209][209][209][209][209][209][209][209][209][209][209][209][209][209][209]       [144][221]"
  312. 8040 print"[144]        [221]code:..................knoeki[144][221]"
  313. 8050 print"[144]        [221]petscii gfx:...........knoeki[144][221]"
  314. 8060 print"[144]        [221]support&ideas:..detonic&blend[144][221]"
  315. 8070 print"[144]        [221]music:.............lord nikon[144][221]"
  316. 8080 print"[144]        [221]linking:.............rambones[144][221]"
  317. 8100 print"[144]        [202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
  318. 8103 fora=1to11:print" ":nexta
  319. 8110 print"[145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209]";
  320. 8115 forzx=1to7
  321. 8120 print"[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";:t$="[209][209][209][209][209][209][209][209][209][209][209][209][209][209][209]":gosub6000
  322. 8130 print"[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][154]";:t$="[209][209][209][209][209][209][209][209][209][209][209][209][209][209][209]":gosub6000
  323. 8140 next zx
  324. 8150 print"[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][150]";:t$="[211][211][211][211][211][211][211][211][211][211][211][211][211][211][211]":gosub6000
  325. 8151 poke780,0:sys4096*6
  326. 8155 forp=1to28
  327. 8160 print"[145][147]"
  328. 8170 nextp
  329. 8200 print"        ";:t$="[176][174]                  [176][174]":gosub6000:print" "
  330. 8210 print"        ";:t$="[221][171][174] [176][192][192][174]            [221][221]":gosub6000:print" "
  331. 8220 print"       ";:t$="[176][189][171][219][192][219][174][176][177][178][174] [176][192][178][192][178][178][178][192][178][189][171][192][174]":gosub6000:print" "
  332. 8230 print"       ";:t$="[221][221][221][221][221][171][179][221][221][221][221] [221][192][179][221][221][221][221][221][221][221][221][192][179]":gosub6000:print"[160]"
  333. 8240 print"       ";:t$="[221][221][221][221][221][221][221][221] [221][173][174][171][192][221][221][221][221][221][221][221][221][171][192][221]":gosub6000:print" "
  334. 8250 print"       ";:t$="[173][192][177][219][174][171][177][177][177][177][192][189][173][192][177][192][177][192][177][177][177][192][177][192][189]":gosub6000:print" "
  335. 8260 print"          ";:t$="[221][221][221][176][192][178][178][178][192][178][192][178][192][178][192][192][174]":gosub6000:print" "
  336. 8270 print"          ";:t$="[173][192][189][221][192][179][221][221][192][219][174][221][192][221][221][221][221]":gosub6000:print" "
  337. 8280 print"             ";:t$="[171][192][221][221][171][192][221][221][221][192][179][221][221][221][176][174][176][174][176][174]":gosub6000:print"[160]"
  338. 8290 print"             ";:t$="[173][192][219][174][171][192][189][173][177][192][177][177][177][189][173][189][173][189][173][189]":gosub6000:print"[160]"
  339. 8300 print"               ";:t$="[221][221][221]":gosub6000:print" "
  340. 8310 print"               ";:t$="[173][192][189]":gosub6000:print" "
  341. 8315 gosub9040
  342. 8317 poke53281,6:poke53280,6
  343. 8320 print"[145][145][144]";:t$="memberstatus:":gosub6000
  344. 8330 print"";
  345. 8335 gosub9040
  346. 8340 print"                            [176][174]"
  347. 8350 print"                  [176][192][174][176][174][176][192][178][192][178][189][221]"
  348. 8360 print"                  [221][221][173][179][221][221][221][221][221][221][221][221]"
  349. 8370 print"                  [221][192][192][221][173][179][192][179][221][221][221][221]"
  350. 8380 print"                  [173][192][192][177][192][177][192][177][177][177][192][189]"
  351. 8390 print"[144]                         ";:t$="(msx)":gosub6000
  352. 8395 forlp=1to2000:nextlp
  353. 8400 gosub9000:gosub9040
  354. 8410 print"                   [176][178][192][192][192][192][174] [176][174]"
  355. 8420 print"                  [176][189][171][192][174][176][192][219][192][219][219][192][174]"
  356. 8430 print"                  [221][221][221][192][221][221][221][221][221][221][221] [221]"
  357. 8440 print"                  [221][221][221][192][179][221][221][221][221][221][221][192][179]"
  358. 8450 print"                  [173][192][177][192][177][177][192][177][177][177][177][192][189]"
  359. 8455 print"[144]                          ";:t$="(gfx)":gosub6000
  360. 8460 forlp=1to2000:nextlp
  361. 8470 gosub9000:gosub9040
  362. 8500 print"                  [176][178][174]     [176][178][174]"
  363. 8510 print"                  [221][221][171][192][178][192][178][192][179][221][171][174]"
  364. 8520 print"                  [221] [179][221][221][221][221][192][221] [179][221]"
  365. 8530 print"                  [221][221][221][221][221][221][221][192][179][221][221][221]"
  366. 8540 print"                  [173][177][177][177][177][192][177][192][177][177][177][189]"
  367. 8545 print"[144]                    ";:t$="(code/gfx)":gosub6000
  368. 8550 forlp=1to1500:next
  369. 8555 gosub9040:print"[147] ":print"[154] ":print" "
  370. 8557 goto10400
  371. 8560 print"          [176][192][192][192][192][192][174][176][192][192][192][192][192][174][176][192][174][176][192][174]"
  372. 8570 print"          [221]     [221][221]     [221][221] [221][221] [221]"
  373. 8580 print"          [173][192][174] [176][192][189][221] [176][192][192][192][189][221] [221][221][160][221]"
  374. 8590 print"            [221] [221]  [221] [173][192][192][192][174][221] [173][189] [221]"
  375. 8600 print"            [221] [221]  [221]     [221][221]    [221]"
  376. 8610 print"            [221] [221]  [221][160][176][192][192][192][189][221] [176][174] [221]"
  377. 8620 print"            [221] [221]  [221] [173][192][192][192][174][221] [221][221] [221]"
  378. 8630 print"            [221] [221]  [221]     [221][221] [221][221] [221]"
  379. 8640 print"            [173][192][189]  [173][192][192][192][192][192][189][173][192][189][173][192][189]"
  380. 8650 print"          [176][192][192][192][192][192][174][176][192][192][192][192][174]    [176][192][174]"
  381. 8660 print"          [221]     [221][221]    [221]    [221] [221]"
  382. 8670 print"          [221] [176][192][192][192][189][221] [176][174] [221]    [221] [221]"
  383. 8680 print"          [221] [173][192][192][192][174][221] [221][221] [221][176][192][192][192][189] [221]"
  384. 8690 print"          [221]     [221][221] [221][221] [221][221]     [221]"
  385. 8700 print"          [221] [176][192][192][192][189][221] [221][221] [221][221] [176][192][174] [221]"
  386. 8710 print"          [221] [173][192][192][192][174][221] [221][221][160][221][221] [173][192][189] [221]"
  387. 8720 print"          [221]     [221][221] [221][221] [221][221]     [221]"
  388. 8730 print"          [173][192][192][192][192][192][189][173][192][189][173][192][189][173][192][192][192][192][192][189][209]";
  389. 8735 goto 10000
  390. 9000 print"[145][145][145][145][145][145]"
  391. 9010 foro=1to6
  392. 9020 print"                                      "
  393. 9030 nexto:print"[145][145][145][145][145][145][145]":return
  394. 9040 poke53281,14:poke53280,14
  395. 9050 formm=1to30:nextmm:poke53281,6:poke53280,6:return:print""
  396. 10000 forup=1to18:t$="[145][157][209]":gosub6040:nextup
  397. 10010 forlf=1to21:t$="[157][157][209]":gosub6040:nextlf
  398. 10020 fordn=1to19:t$="[157][209]":gosub6040:nextdn
  399. 10030 forrt=1to21:t$="[157][209]":gosub6040:nextrt
  400. 10040 print"[155]";:forup=1to19:t$="[145][157][209]":gosub6040:nextup
  401. 10050 print"[155]";:forlf=1to21:t$="[157][157][209]":gosub6040:nextlf
  402. 10060 print"[155]";:fordn=1to19:t$="[157][209]":gosub6040:nextdn
  403. 10070 print"[155]";:forrt=1to21:t$="[157][209]":gosub6040:nextrt
  404. 10080 print"[152]";:forup=1to19:t$="[145][157][209]":gosub6040:nextup
  405. 10090 print"[152]";:forlf=1to21:t$="[157][157][209]":gosub6040:nextlf
  406. 10100 print"[152]";:fordn=1to19:t$="[157][209]":gosub6040:nextdn
  407. 10110 print"[152]";:forrt=1to21:t$="[157][209]":gosub6040:nextrt
  408. 10120 print"[151]";:forup=1to19:t$="[145][157][209]":gosub6040:nextup
  409. 10130 print"[151]";:forlf=1to21:t$="[157][157][209]":gosub6040:nextlf
  410. 10140 print"[151]";:fordn=1to19:t$="[157][209]":gosub6040:nextdn
  411. 10150 print"[151]";:forrt=1to21:t$="[157][209]":gosub6040:nextrt
  412. 10160 print"[144]";:forup=1to19:t$="[145][157][209]":gosub6040:nextup
  413. 10170 print"[144]";:forlf=1to21:t$="[157][157][209]":gosub6040:nextlf
  414. 10180 print"[144]";:fordn=1to19:t$="[157][209]":gosub6040:nextdn
  415. 10190 print"[144]";:forrt=1to21:t$="[157][209]":gosub6040:nextrt
  416. 10200 print"[151]";:forup=1to19:t$="[145][157][209]":gosub6040:nextup
  417. 10210 print"[151]";:forlf=1to21:t$="[157][157][209]":gosub6040:nextlf
  418. 10220 print"[151]";:fordn=1to19:t$="[157][209]":gosub6040:nextdn
  419. 10230 print"[151]";:forrt=1to21:t$="[157][209]":gosub6040:nextrt
  420. 10240 print"[152]";:forup=1to19:t$="[145][157][209]":gosub6040:nextup
  421. 10250 print"[152]";:forlf=1to21:t$="[157][157][209]":gosub6040:nextlf
  422. 10260 print"[152]";:fordn=1to19:t$="[157][209]":gosub6040:nextdn
  423. 10270 print"[152]";:forrt=1to21:t$="[157][209]":gosub6040:nextrt
  424. 10280 print"[155]";:forup=1to19:t$="[145][157][209]":gosub6040:nextup
  425. 10290 print"[155]";:forlf=1to21:t$="[157][157][209]":gosub6040:nextlf
  426. 10300 print"[155]";:fordn=1to19:t$="[157][209]":gosub6040:nextdn
  427. 10310 print"[155]";:forrt=1to21:t$="[157][209]":gosub6040:nextrt
  428. 10320 print"[145]";:goto10000
  429. 10400 poke53281,0:poke53280,0
  430. 10410 print""
  431. 10420 print" and now, everyone raise your beers for "
  432. 10440 print"               -[[150] oxyron ]-              "
  433. 10450 print"     who made this party possible!!";
  434. 10460 gosub 20000
  435. 10470 print"[145][145][145]                    [155]-[ oxyron [155]]-":gosub20000
  436. 10475 for xz=1to30
  437. 10480 print"[145][145]               [152]-[ [156]oxyron [152]]-":gosub20000
  438. 10490 print"[145][145]               [151]-[ oxyron [151]]-":gosub20000
  439. 10500 print"[145][145]               [144]-[ [154]oxyron [144]]-":gosub20000
  440. 10510 print"[145][145]               [151]-[ oxyron [151]]-":gosub20000
  441. 10520 print"[145][145]               [152]-[ [156]oxyron [152]]-":gosub20000
  442. 10530 print"[145][145]               [155]-[ oxyron [155]]-":gosub20000
  443. 10540 print"[145][145]               -[ [150]oxyron ]-":gosub20000
  444. 10550 print"[145][145]               [155]-[ oxyron [155]]-":gosub20000
  445. 10560 next xz
  446. 10565 print"[147]  [151](can you find the hidden endpart? =)"
  447. 10570 print"";
  448. 10600 print"               [155]-[the  end[155]]-":gosub20000
  449. 10610 print"[145]               [152]-[[156]the  end[152]]-":gosub20000
  450. 10620 print"[145]               [151]-[the  end[151]]-":gosub20000
  451. 10630 print"[145]               [144]-[[154]the  end[144]]-":gosub20000
  452. 10640 print"[145]               [151]-[the  end[151]]-":gosub20000
  453. 10650 print"[145]               [152]-[[156]the  end[152]]-":gosub20000
  454. 10660 print"[145]               [155]-[the  end[155]]-":gosub20000
  455. 10670 print"[145]               -[[150]the  end]-":gosub20000
  456. 10680 print"[145]               [155]-[the  end[155]]-":gosub20000
  457. 10690 goto 10610
  458. 20000 forcf=1to70:nextcf:return
  459.